﻿Public Class clsTaskTM
    Public Function SelectTaskTMByStatus(status As String) As DataTable
        Dim szSql As String = ""
        szSql &= "select * from agv.task_tm where status = ? order by update_time desc"
        Dim dt As DataTable = DBacs.ExecuteSql(szSql, -1, status)
        Return dt
    End Function

    Public Function updateTaskTMStatusByTaskId(status As String, task_id As String) As Integer
        Dim szSql As String = String.Empty
        Dim rtn As Integer
        szSql &= "update agv.task_tm set status = ? where task_id = ?"
        rtn = DBacs.ExecuteUpdateSql(szSql, -1, status, task_id)
        Return rtn
    End Function

End Class
